Electronic Clipper 1996 November/Electronic Clipper 1996 November.iso/ideasrc/pyramid.dir/00063.ls

Text File | 1996-10-11 | 187 b | 10 lines

on mouseUp
  repeat with n = 2 to 21
    if sprite n intersects 22 then
      put integer(field "fats" + 1) into field "fats"
      go("mouthopen")
      exit
    end if
  end repeat
end